home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed19.d64 / planet integer (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  441 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-(1-FL):POKEU4,U4%:IFFLTHENFL=0:RETURN
  30. 166 GOTO35
  31. 299 :
  32. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  33. 310 REM PROJECT DIRECTOR: FRANK WINTER
  34. 320 REM PROGRAM NAME: PLANET INTEGER
  35. 330 REM WRITTEN BY PAT SCRIMGEOUR
  36. 340 REM REVISED BY PAT SCRIMGEOUR
  37. 350 REM UPDATED BY BILL CUMBERLAND
  38. 360 REM PLANET INTEGER CAN BE USED TO PRACTISE
  39. 365 REM CALCULATING THE LOCATION OF POINTS AND
  40. 370 REM DISTANCES BETWEEN POINTS ON THE
  41. 375 REM CARTESIAN PLANE.
  42. 380 REM THIS IS ALSO USEFUL FOR DEVELOPING MAP SKILLS.
  43. 399 :
  44. 400 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
  45. 401 GOSUB1580
  46. 402 PRINT" [212]HIS IS A MAP OF"
  47. 403 PRINT" THE PLANET"
  48. 404 PRINT" [201]NTEGER WHERE"
  49. 405 PRINT" YOUR SPACESHIP"
  50. 406 PRINT" HAS BROKEN DOWN."
  51. 407 PRINT" [217]OU MUST TRAVEL"
  52. 408 PRINT" TO THE [201]NTEGER"
  53. 409 PRINT" [211]PACE [211]HOP TO BUY"
  54. 411 PRINT" SPARE PARTS."
  55. 412 GOSUB830
  56. 413 PRINT"[147][159] [212]HERE IS A MONSTER FOLLOWING YOU"
  57. 414 PRINT" AROUND THE PLANET, AND HE WILL CARRY"
  58. 415 PRINT" YOU AWAY IF HE CATCHES YOU."
  59. 416 PRINT" [201]F YOU WALK OUT OF THE MAPPED PART"
  60. 417 PRINT" OF THE PLANET, YOU WILL LOSE YOUR WAY"
  61. 418 PRINT" AND YOU WILL HAVE TO ASK HOW TO GET     BACK."
  62. 420 GOSUB830
  63. 421 PRINT"[147][159] [217]OU HAVE FIVE JELLYBEANS, BUT IF YOU"
  64. 422 PRINT" ARE CAUGHT BY THE MONSTER YOU WILL"
  65. 423 PRINT" HAVE TO GIVE HIM A JELLYBEAN TO PUT     YOU DOWN.
  66. 424 [153]" RIGHT$F YOU GET LOST, YOU MUST FEED A
  67. 425 PRINT" JELLYBEAN TO A BIRD TO SHOW YOU
  68. 426 [153]" THE WAY BACK."
  69. 427 [141]830
  70. 428 [153]"LOADOPEN (null)O MOVE AROUND, GIVE INSTRUCTIONS TO"
  71. 429 [153]" TELL YOUR TELEPORTER HOW FAR TO MOVE    IN EACH DIRECTION.
  72. 430 PRINT" [217]OUR TELEPORTER NEEDS FIRST THE
  73. 431 [153]" "[199](34)"(null)"[199](34)" (EAST/WEST) RIGHT/LEFT DISTANCE
  74. 432 PRINT" AND THEN THE "CHR$(34)"[217]"CHR$(34)" (NORTH/SOUTH) UP/DOWN  DISTANCE.
  75. 433 [153]" (null)HESE NUMBERS MUST BE POSITIVE (+) TO"
  76. 434 [153]" MOVE NORTH OR EAST, AND NEGATIVE (-)"
  77. 435 [153]" TO GO SOUTH OR WEST."
  78. 436 [141]830:[153]"LOADOPEN":[141]1580
  79. 437 [153]" ASCOR EXAMPLE, IF"
  80. 438 [153]" YOU ARE HERE,"
  81. 439 [153]" AT THE POSITION"
  82. 440 [153]" CALLED (3,-4)"
  83. 441 [153]" [SINCE IT IS 3"
  84. 442 [153]" STEPS EAST AND"
  85. 443 [153]" 4 STEPS SOUTH"
  86. 444 [153]" (-4 NORTH) OF THE"
  87. 445 [153]" CENTRE OF THE"
  88. 446 [153]" PLANET] ";
  89. 447 X[178]3:Y[178][171]4:CH[178]42:[141]2280
  90. 448 [153]"(null)OU MUST"
  91. 449 [153]" MOVE WEST 7 AND"
  92. 450 [153]" NORTH 5 TO GET"
  93. 451 [153]" TO THE (null)PACE"
  94. 452 [153]" (null)HOP AT (-4,1)."
  95. 453 X[178][171]4:Y[178]1:CH[178]35:[141]2280
  96. 454 AX[178]3:AY[178][171]4:BX[178][171]4:BY[178]1:X[178]3:Y[178][171]4:CH[178]42:CB[178]CO:[141]830
  97. 455 [153][200](UD$,24);"                                 "
  98. 456 [141]1730:CI[178]CO:[141]1700:[141]1760:[141]1890:CI[178]163:[141]1700:[141]830
  99. 460 [153]"LOADOPEN (null)O ENTER THE DISTANCE YOU WANT THE"
  100. 462 [153]" TELEPORTER TO MOVE YOU, TYPE IN THE"
  101. 464 [153]" DIRECTION (+ OR -), THE DISTANCE"
  102. 466 [153]" (1 TO 9), THEN PRESS (null)VAL(null)(null)(null)(null)."
  103. 468 [153]" RIGHT$F YOU MAKE A MISTAKE, JUST TYPE THE"
  104. 470 [153]" CORRECT KEY BEFORE PRESSING (null)VAL(null)(null)(null)(null)WAIT.
  105. 474 GOSUB830
  106. 476 PRINT"[147][159] [212]O WIN THE GAME, YOU HAVE TO GET 15"
  107. 478 PRINT" PARTS FROM THE [211]PACE [211]HOP, EACH ON A"
  108. 480 PRINT" SEPARATE TRIP."
  109. 481 PRINT" [207]N THE TELEPORTER'S MAP:"
  110. 482 PRINT" - YOU ARE THE "CHR$(34)"*"CHR$(34)","
  111. 484 PRINT" - THE MONSTER IS THE "CHR$(34)"@"CHR$(34)","
  112. 486 PRINT" - THE [211]HOP IS THE "CHR$(34)"#"CHR$(34)"."
  113. 488 PRINT"  [215][193][210][206][201][206][199] [146] -- YOU CAN MOVE ONLY A
  114. 490 [153]" MAXIMUM OF  9 WAIT STEPS AT A TIME."
  115. 495 [141]830:[142]
  116. 499 :
  117. 500 [143] <YES> SOUND
  118. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  119. 510 [151]54296,15:[151]54277,42:[151]54278,250
  120. 515 [151]54276,23:[151]54273,23:[151]54272,191
  121. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  122. 525 [151]54296,0:[142]
  123. 530 [143] <NO> SOUND
  124. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  125. 540 [151]54296,15:[151]54277,18:[151]54278,242
  126. 545 [151]54276,33:[151]54273,4:[151]54272,48
  127. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  128. 555 [151]54296,0:[142]
  129. 560 [143] <BLIP> SOUND
  130. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  131. 570 [151]54296,6:[151]54277,42:[151]54278,250
  132. 575 [151]54276,23:[151]54273,23:[151]54272,191
  133. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  134. 585 [151]54296,0:[142]
  135. 590 [129]TM[178]1[164]500:[130]:[142]
  136. 591 [129]TM[178]1[164]1000:[130]:[142]
  137. 592 [129]TM[178]1[164]2000:[130]:[142]
  138. 593 [129]TM[178]1[164]3000:[130]:[142]
  139. 595 [129]TM[178]1[164]5000:[130]:[142]
  140. 799 :
  141. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
  142. 801 [153]"      A TPUG EDUCATIONAL PROGRAM":[141]590
  143. 802 [153]"           FOR C64 COMPUTERS":[141]591
  144. 803 [153]"                                        WAIT";
  145. 804 [153]"                                        WAIT";
  146. 805 [153]"              A VOYAGE TO               WAIT";
  147. 806 [153]"                                        WAIT";
  148. 807 [153]"            PLANET  INTEGER             WAIT";
  149. 808 [153]"                                        WAIT";
  150. 809 [153]"                                        WAIT":[141]591:[141]560
  151. 810 [153]"          INSTRUCTIONS?  Y/N"
  152. 811 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]811
  153. 812 [139]R$[178]"Y"[167][141]400
  154. 813 [153]"LOAD  AND AWAY WE GO ..........":[141]591
  155. 814 [137]1000
  156. 830 [141]591:[141]560
  157. 835 [151]UN,0:[153][200](UD$,24);"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUEWAITLIST"
  158. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  159. 845 [142]
  160. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  161. 855 [153]" --------------------------------------"
  162. 860 [139]UH[178]0[167][153][200](UD$,24)" ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
  163. 865 UH=0:PRINT"":RETURN
  164. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  165. 899 :
  166. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  167. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  168. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  169. 905 UD$="":UP$="                                      "
  170. 909 RETURN
  171. 910 GOSUB900:PRINT"[147] "
  172. 920 GOTO800
  173. 999 :
  174. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0:POKEUT,UL%
  175. 1020 UG$="[211]TART"
  176. 1150 UT$=" [208]LANET [201]NTEGER":POKEUT,UL%:UP=-1:UH=1:
  177. 1160 UG$="[205]ISSION"
  178. 1200 PRINT" [212]HE GAME IS ABOUT TO BEGIN."
  179. 1210 GOSUB2020
  180. 1220 GOSUB591:GOSUB560:GOSUB590
  181. 1240 AL=INT(MI/4)
  182. 1250 IFAL=0THENL=0
  183. 1260 IFAL=1THENL=INT(RND(0)*2)
  184. 1270 IFAL>1THENL=INT(RND(0)*4)
  185. 1280 IFL=3THENL=2
  186. 1290 ON(L+1)GOTO2710,2710,3170
  187. 1300 PRINT" [217]OU HAVE"(5-DY)
  188. 1305 PRINT" JELLYBEAN"CHR$(-83*((5-DY)<>1))" LEFT,":GOSUB560
  189. 1310 PRINT" AND YOU HAVE MADE"
  190. 1320 PRINT" IT TO THE [211]PACE"
  191. 1330 PRINT" [211]HOP"MI"TIME"CHR$(-83*(MI<>1))"."
  192. 1350 GOSUB2380
  193. 1360 IFDY=>5THEN1390
  194. 1370 IFMI=>15THEN1510
  195. 1380 GOTO1240
  196. 1390 POKEUY,0:POKEUX,0:POKE646,7
  197. 1395 PRINT"[147] [217]OU HAVE USED THE LAST OF YOUR"
  198. 1400 PRINT" JELLYBEANS.":GOSUB530:GOSUB591
  199. 1430 PRINT" [201]N THIS GAME, YOU SPENT"DY"JELLYBEANS"
  200. 1440 PRINT" IN"DY+MI"ROUNDS.":GOSUB591
  201. 1445 PRINT"  [217]OU MADE IT SAFELY TO THE [201]NTEGER
  202. 1450 [153]" (null)PACE (null)HOP"MI"TIMES.":[141]830
  203. 1460 [141]560:[153]"LOAD STR$O YOU WANT TO PLAY ANOTHER GAME? ";
  204. 1462 UL[178]1:US$[178]"YN":[141]35:A$[178]UR$
  205. 1464 [139]A$[178]"Y"[167][140]:[137]1000
  206. 1466 [140]
  207. 1468 [153]"LOAD (null)ETURNING TO THE DISK (null)VAL(null)(null).
  208. 1470 LOAD"MENU",8
  209. 1472 RUN
  210. 1474 END
  211. 1500 RETURN
  212. 1510 PRINT"[158][147] [195]ONGRATULATIONS!  [217]OU MADE IT TO"
  213. 1520 PRINT" THE [211]PACE [211]HOP FOR 15 PARTS.":GOSUB560:GOSUB560:GOSUB560
  214. 1530 IFDY=0THEN1570
  215. 1540 PRINT" [217]OU USED"DY"JELLYBEANS.":GOSUB560:GOSUB591
  216. 1550 PRINT" [206]EXT TIME, SEE IF YOU CAN DO IT         WITHOUT SPENDING ANY."
  217. 1570 GOSUB830
  218. 1575 GOTO 1460
  219. 1580 REM
  220. 1590 PRINT"[147][159]":PRINTTAB(18)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  221. 1600 FORJ=1TO9
  222. 1610 PRINTTAB(18)"[221]         [219]         [221]"
  223. 1620 NEXT
  224. 1630 PRINTTAB(18)"[221][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][221]"
  225. 1640 FORJ=1TO9
  226. 1650 PRINTTAB(18)"[221]         [219]         [221]"
  227. 1660 NEXT
  228. 1670 PRINTTAB(18)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  229. 1680 IFAL=0THENPOKEUS+108,89:POKEUS+518,88
  230. 1690 RETURN
  231. 1700 REM"[141][141]      [208]OKE AT [208](X,Y)[141]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][141]
  232. 1710 [151]US[170]508[170]([171]Y)[172]40[170]X,CI
  233. 1720 [142]
  234. 1730 [143]"GOSUBGOSUB      (null)EEK AT (null)(X,Y)GOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  235. 1740 CO=PEEK(US+508+(-Y)*40+X)
  236. 1750 RETURN
  237. 1760 REM"[141][141]      [205]OVE IN X DIRECTION[141]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][141]
  238. 1770 CI[178]CB:[141]1700
  239. 1780 [129]X[178]AX[164]BX[169][180](BX[171]AX)
  240. 1790 [141]1730:CB[178]CO
  241. 1800 [139]CB[178]0[167]3620
  242. 1810 [139]CB[178]93[176]CB[178]88[167]3770
  243. 1820 CI[178]CH:[141]1700
  244. 1830 [129]J[178]1[164]75:[130]
  245. 1840 CI[178]CB:[141]1700
  246. 1850 [130]
  247. 1860 X[178]BX
  248. 1870 CI[178]CH:[141]1700
  249. 1880 [142]
  250. 1890 [143]"GOSUBGOSUB      (null)OVE IN Y DIRECTIONGOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  251. 1900 CI=CB:GOSUB1700
  252. 1910 FORY=AYTOBYSTEPSGN(BY-AY)
  253. 1920 GOSUB1730:CB=CO
  254. 1930 IFCB=0THEN3620
  255. 1940 IFCB=64ORCB=89THEN3770
  256. 1950 CI=CH:GOSUB1700
  257. 1960 FORJ=1TO75:NEXT
  258. 1970 CI=CB:GOSUB1700
  259. 1980 NEXT
  260. 1990 Y=BY
  261. 2000 CI=CH:GOSUB1700
  262. 2010 RETURN
  263. 2020 REM"[141][141]      [201]NITIALIZATION[141]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][141]
  264. 2040 [150][165]R(X)[178][181]([187](0)[172]19)[171]9
  265. 2050 DN$[178]""
  266. 2060 BL$[178]"                                       "
  267. 2061 DY[178]0:MI[178]0:UP[178]0
  268. 2070 [139] FG[178]0 [167] [134]IM$(2,1):FG[178]1
  269. 2080 IM$(0,0)[178]"   VALAST/(null)EST? "
  270. 2090 IM$(0,1)[178]" (null)ORTH/(null)OUTH? "
  271. 2100 IM$(1,0)[178]"  (null) DISTANCE? "
  272. 2110 IM$(1,1)[178]"  (null) DISTANCE? "
  273. 2120 IM$(2,0)[178]"  (null) DISTANCE? "
  274. 2130 IM$(2,1)[178]"  (null) DISTANCE? "
  275. 2140 [142]
  276. 2150 [143]"GOSUBGOSUB      LENLEAR LEFT HALFGOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  277. 2160 PRINT"";
  278. 2170 FORJ=1TO21
  279. 2180 PRINT"                  "
  280. 2190 NEXT
  281. 2200 REMPRINT"                                       "
  282. 2210 RETURN
  283. 2220 REM"[141][141]      [195]LEAR LOWER HALF[141]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][141]
  284. 2230 [153][200](DN$,17)
  285. 2240 [129]J[178]1[164]6
  286. 2250 [153]"                                       "
  287. 2260 [130]
  288. 2270 [142]
  289. 2280 [143]"GOSUBGOSUB      ASCLASH CHARACTERGOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  290. 2290 GOSUB1730
  291. 2300 FORA=1TO7
  292. 2310 CI=CH:GOSUB1700
  293. 2320 FORJ=1TO125:NEXT
  294. 2330 CI=CO:GOSUB1700
  295. 2340 FORJ=1TO125:NEXT
  296. 2350 NEXT
  297. 2360 CI=CH:GOSUB1700
  298. 2370 RETURN
  299. 2380 REM"[141][141]      [208]RESS [211][200][201][198][212][141]      [163][163][163][163][163][163][163][163][163][163][163][141]
  300. 2390 [141]830
  301. 2400 [142]
  302. 2480 [143]"GOSUBGOSUB      STR$ETERMINE LOCATIONGOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  303. 2490 X=FNR(0):Y=FNR(0)
  304. 2500 GOSUB1730
  305. 2510 IFCO=0ORCO=42ORCO=35THEN2490
  306. 2520 RETURN
  307. 2530 REM"[141][141]      [201]NPUT +/-, DISTANCE[141]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][141]
  308. 2540 A$[178]"":PM$[178]"":DI$[178]""
  309. 2550 [129]J[178]1[164]10:[161]J$:[130]
  310. 2560 [161]A$:[139]A$[178]""[167]2560
  311. 2570 A$[178][199]([198](A$)[175]127)
  312. 2580 [139]A$[178]"+"[176]A$[178]"-"[167]PM$[178]A$:[137]2630
  313. 2590 [139]A$[178]"0"[167]2650
  314. 2600 [139]A$[178][199](13)[175](PM$[179][177]""[175]DI$[179][177]""[176]DI$[178]"0")[167]2680
  315. 2610 [139][197](A$)[179][177]0[167]2650
  316. 2620 [137]2560
  317. 2630 [153]"ON"[163][195](IM$(L,XY)))PM$
  318. 2640 [137]2560
  319. 2650 DI$[178]A$
  320. 2660 [153]"ON"[163][195](IM$(L,XY))[170]1)DI$
  321. 2670 [137]2560
  322. 2680 [153]" ":DI[178][197](DI$)
  323. 2690 [139]PM$[178]"-"[167]DI[178][171]DI
  324. 2700 [142]
  325. 2710 [143]"GOSUBGOSUB      (null)NE TURN - LEVELS 0, 1GOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  326. 2720 UP=DY+MI:GOSUB1580
  327. 2730 GOSUB2480
  328. 2740 HX=X:HY=Y
  329. 2750 CI=35:GOSUB1700
  330. 2760 GOSUB2480
  331. 2770 MX=X:MY=Y
  332. 2780 CM=CO
  333. 2790 CI=0:GOSUB1700
  334. 2800 GOSUB2480
  335. 2810 PX=X:PY=Y
  336. 2820 CP=CO
  337. 2830 CI=42:GOSUB1700
  338. 2840 GOSUB2150
  339. 2860 PRINT" [205]OVE:"
  340. 2870 FORXY=0TO1
  341. 2880 PRINT""IM$(L,XY)
  342. 2890 GOSUB2530
  343. 2900 GY=DI
  344. 2910 IFXY=0THENGX=DI
  345. 2920 NEXT
  346. 2930 AX=PX:AY=PY
  347. 2940 PX=PX+GX:PY=PY+GY
  348. 2950 BX=PX:BY=PY
  349. 2960 CH=42:CB=CP
  350. 2970 X=AX:Y=AY
  351. 2990 GOSUB1760:GOSUB1890
  352. 3010 CP=CB
  353. 3020 IFHX=PXANDHY=PYTHEN3960
  354. 3030 AX=MX:AY=MY
  355. 3040 IFABS(MX-PX)=1THENMX=PX
  356. 3050 IFABS(MY-PY)=1THENMY=PY
  357. 3060 MX=INT((MX+PX)/2)
  358. 3070 MY=INT((MY+PY)/2)
  359. 3080 BX=MX:BY=MY
  360. 3090 CH=0:CB=CM
  361. 3100 X=AX:Y=AY
  362. 3120 GOSUB1760:GOSUB1890
  363. 3140 CM=CB
  364. 3150 IFMX=PXANDMY=PYTHEN3620
  365. 3160 GOTO2840
  366. 3170 REM"[141][141]      [207]NE TURN - LEVEL 2[141]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][141]
  367. 3180 UP[178]DY[170]MI:[153]"LOAD"
  368. 3190 [153]" (null)CANNERS INOPERATIVE.                 "
  369. 3200 HX[178][165]R(0):HY[178][165]R(0)
  370. 3210 MX[178][165]R(0):MY[178][165]R(0)
  371. 3220 [139]MX[178]HX[175]MY[178]HY[167]3210
  372. 3230 PX[178][165]R(0):PX[178][165]R(0)
  373. 3240 [139](PX[178]HX[175]PY[178]HY)[176](PX[178]MX[175]PY[178]MY)[167]3230
  374. 3250 [139][182](PX)[177]9[176][182](PY)[177]9[167]3230
  375. 3260 [153]" LENOMPUTER STATUS REPORT:               "
  376. 3270 [153]"  (null)PACE (null)HOP IS AT ("HX"CMD,"HY"CMD)."
  377. 3280 [153]"  (null)ONSTER IS AT ("MX"CMD,"MY"CMD)."
  378. 3290 [153]"  (null)OU ARE AT ("PX"CMD,"PY"CMD)."
  379. 3300 [153]" (null)ELEPORTER LENONTROL:                   "
  380. 3310 [153]"  (null)OVE:"
  381. 3320 [129]XY[178]0[164]1
  382. 3330 [153]IM$(L,XY)
  383. 3340 [141]2530
  384. 3350 GY[178]DI
  385. 3360 [139]XY[178]0[167]GX[178]DI
  386. 3370 [130]
  387. 3380 AX[178]PX:AY[178]PY
  388. 3390 PX[178]PX[170]GX:PY[178]PY[170]GY
  389. 3400 BX[178]PX:BY[178]PY:X[178]AX:Y[178]AY
  390. 3410 [139][182](PX)[177]9[176][182](PY)[177]9[167]3770
  391. 3440 [129]X[178]AX[164]BX[169]([180](BX[171]AX))
  392. 3450 [139]X[178]MX[175]Y[178]MY[167]3620
  393. 3460 [130]
  394. 3470 [129]Y[178]AY[164]BY[169]([180](BY[171]AY))
  395. 3480 [139]X[178]MX[175]Y[178]MY[167]3620
  396. 3490 [130]
  397. 3540 [139]PX[178]HX[175]PY[178]HY[167]3960
  398. 3550 [139][182](MX[171]PX)[178]1[167]MX[178]PX
  399. 3560 [139][182](MY[171]PY)[178]1[167]MY[178]PY
  400. 3570 MX[178][181]((MX[170]PX)[173]2)
  401. 3580 MY[178][181]((MY[170]PY)[173]2)
  402. 3590 [139]MX[178]PX[175]MY[178]PY[167]3620
  403. 3600 [141]2220
  404. 3610 [153]"LOAD":[137]3260
  405. 3620 [143]"GOSUBGOSUB      LENAUGHT BY MONSTERGOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  406. 3630 IFL=2THENPRINT"[147]"
  407. 3640 GOSUB2150
  408. 3650 IFL<>2THENX=MX:Y=MY:CI=128:GOSUB1700
  409. 3660 PRINT"[150]  [193]AUUGH....      ":GOSUB530:GOSUB591
  410. 3680 PRINT" [217]OU HAVE BEEN"
  411. 3690 PRINT" CAUGHT BY THE"
  412. 3700 PRINT" DREADED MONSTER.":GOSUB591:GOSUB560
  413. 3710 PRINT" [217]OU MUST PAY"
  414. 3720 PRINT" HIM A JELLYBEAN"
  415. 3730 PRINT" TO PUT YOU DOWN.[155]"
  416. 3750 DY=DY+1
  417. 3760 GOTO1300
  418. 3770 REM"[141][141]      [207]FF MAP[141]      [163][163][163][163][163][163][163][141]
  419. 3780 [139]L[178]2[167][153]"LOAD"
  420. 3790 [141]2150
  421. 3800 [153]"DEF LEFT$ELP!            ":[141]530:[141]591
  422. 3810 [153]" (null)OU HAVE GONE"
  423. 3820 [153]" OFF THE MAPPED"
  424. 3830 [153]" PART OF RIGHT$NTEGER.":[141]591:[141]560
  425. 3840 [153]" ATN BIRD WILL"
  426. 3850 [153]" HELP YOU BACK,"
  427. 3860 [153]" AFTER YOU GIVE"
  428. 3870 [153]" IT A JELLLYBEAN.LIST":[141]591
  429. 3940 DY[178]DY[170]1
  430. 3950 [137]1300
  431. 3960 [143]"GOSUBGOSUB      (null)ADE IT!GOSUB      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(GOSUB
  432. 3970 IFL=2THENPRINT"[147]"0
  433. 3980 GOSUB2150
  434. 3990 IFL<>2THENX=HX:Y=HY:CI=163:GOSUB1700
  435. 4000 PRINT"[158] [217]OU MADE IT TO"
  436. 4010 PRINT" THE [211]PACE [211]HOP.":GOSUB500:GOSUB591
  437. 4050 PRINT" [195]ONGRATULATIONS![155]":GOSUB591
  438. 4060 MI=MI+1
  439. 4070 GOTO1300
  440. 5000 REM WHC 90:06:09
  441.